(hanoi): Don't show line and column numbers.

diff --git a/lisp/play/hanoi.el b/lisp/play/hanoi.el
index 17184afeebd301a96745dac84b3cf90f3f4c6efc..12a700d458effac90b572d4ba90d9900b41cf0c7 100644 (file)
--- a/lisp/play/hanoi.el
+++ b/lisp/play/hanoi.el
@@ -149,10 +149,11 @@
          (setq i (1+ i))))
       (setq buffer-read-only t)
       (sit-for 0)
-      ;;
-      ;; do it!
-      ;;
-      (hanoi0 (1- nrings) pole-1 pole-2 pole-3)
+      ;; Disable display of line and column numbers, for speed.
+      (let ((line-number-mode nil)
+           (column-number-mode nil))
+       ;; do it!
+       (hanoi0 (1- nrings) pole-1 pole-2 pole-3))
       (goto-char (point-min))
       (message "Done")
       (setq buffer-read-only t)